В массиве из 10 элементов найти и отпечатать колличество и сумму элементов, значение которых больше последнего элемента массива — QBasic(Бейсик) — Справочник разработчика. Приемная комиссия

k=0
s=0
FOR i=1 TO 10 
IF a(i)>a(10) THEN k=k+1 AND s=s+a(i)
NEXT i
PRINT(i)
PRINT(s)

Тестирование выполнено в программе QB64 ( Скачать )

В массиве из 10 элементов найти и отпечатать колличество и сумму элементов, значение которых больше последнего элемента массива — QBasic(Бейсик)